home *** CD-ROM | disk | FTP | other *** search
- 10 REM ***********************************************************************
- 20 REM "SWITCH" graphics design aid to support simultaneous graphics and text
- 30 REM display for the IBM PC by Werner Grunbaum, July, l984.
- 40 REM ***********************************************************************
- 50 KEY OFF
- 60 KEY 4,"GOSUB 8000"+CHR$(13) 'Switch to Monochrome Monitor
- 70 KEY 5,"GOSUB 9000"+CHR$(13) 'Switch to Color monitor, medium resolution
- 80 LOCATE 25,1
- 90 PRINT "1:LIST 2:RUN 3:LOAD 4:MONO 5:COLOR"
- 100 DEF FNY(Y)=CINT(199-(Y*199))
- 110 DEF FNX(X)=CINT(319*X)
- 120 IF FLAG=1 THEN GOTO 150 'Displays graphics on color monitor
- 130 FLAG=1: GOSUB 9000
- 140 '
- 150 ' Begin graphics text at Line 1000.
- 7960 '
- 7970 LOCATE 1,1 'Sets graphics image at Row l,Col. 1, for printing
- 7980 GOTO 10000
- 7990 '
- 8000 ' Switch to Monochrome Monitor
- 8010 '
- 8020 DEF SEG=0
- 8030 POKE &H410, (PEEK(&H410) OR &H30)
- 8040 SCREEN 0
- 8050 WIDTH 40
- 8060 WIDTH 80
- 8070 LOCATE ,,1,12,13
- 8080 LOCATE 25,1: PRINT "1:LIST 2:RUN 3:LOAD 4:MONO display 5:COLOR display"
- 8090 LOCATE 1,1: PRINT "Ready for text editing at Line 1000": LIST 1000-7500
- 8100 RETURN
- 8110 '
- 9000 ' Switch to Color Monitor
- 9010 '
- 9020 PRINT "Color subroutine reached."
- 9030 DEF SEG=0
- 9040 POKE &H410, (PEEK(&H410) AND &HCF) OR &H10
- 9050 SCREEN 1,0,0,0
- 9060 SCREEN 0
- 9070 WIDTH 40
- 9080 LOCATE ,,1,6,7
- 9090 SCREEN 1,0: COLOR 1,2
- 9100 LOCATE 25,1:PRINT "1:LIST 2:RUN 3:LOAD 4:MONO 5:COLOR"
- 9110 GOTO 100
- 9120 RETURN
- 10000 END
- 090 SCREEN 1,0: COLOR 1,2
- 9100 LOCATE 25,1:PRINT "1:LIST 2:RUN 3:LOAD 4:MONO 5:COLOR"
- 9110 GOTO 100
- 9120